(library (lib string-procs)
  (export string-format)
  (import
    (except (rnrs base) let-values map error)
    (only (guile)
          lambda* λ
          simple-format
          call-with-output-string)
    ;; (ice-9 textual-ports)
    ))


(define string-format
  (λ (format-string . args)
    (call-with-output-string
      (λ (string-port)
        (apply simple-format
               (cons string-port (cons format-string args)))))))
